10 DIM A$(7),B$(7),C$(7):SOUND ON:WIDTH 40:KEY OFF:CLS
20 LOCATE 10,6,0:PRINT "*--YOU 'RE A GRAND OLD FLAG--*"
30 PRINT:PRINT TAB(12);"by George M. Cohan"
40 FOR X=1 TO 7:READ A$(X):NEXT X
50 FOR X=1 TO 7:READ B$(X):NEXT X
60 FOR X=1 TO 7:READ C$(X):NEXT X
70 FOR X=1 TO 7:PLAY A$(X),B$(X),C$(X)
80 FOR DE=1 TO 20:NEXT DE,X:GOTO 70
1000 DATA "V15T120O3MBL4D8.<B16GGGE8D8G8AF#8GE8D8"
1010 DATA "GE8D8GE8D8F#2.D8E8F#G"
1020 DATA "A.D8GAB.G8A8BG8A8BG8"
1030 DATA "A2A8P8>D8.<B16GGGE8D8G8AF#8"
1040 DATA "GF#8F8EG#8B8EBA2A8P8D8D8"
1050 DATA "G.F#8GBA.G#8AF#8D8E8GE8"
1060 DATA "GF#G2D8P8"
2000 DATA "V12T120O1MBL8A4GP8>C4<GP8D4<GP8>D<BGP8>D4"
2010 DATA "<GP8>D4<GP8G#4>DD16E16D<A>D<D>DDD4E4"
2020 DATA "F#DEF#<G4F#EP8E>E<AP8>EP8<AP8>EE-"
2030 DATA "DE4FF#P8D4<GP8>C4<G>P8D4<GP8>DP8"
2040 DATA "<GP8>D4<G#4>E4<B4>E4<A>E16F16EC<AP8DD"
2050 DATA "G4.F#G4B4A4.G#A4>D4<GA4A"
2060 DATA ">EE-D<DG>D16C#16DEGP8"
3000 DATA "V12T120O2MBL8D.B16D4D4<B4AGBD4BP8B>CC"
3010 DATA "P8<B>CCP8<BBB>C2.CCP8CP8C"
3020 DATA "P8CCCP8<BP8>D#P8E4<B>GG4CGG4C"
3030 DATA "F#C4CCP8F#4P8<BP8>EP8<B>CC<BB4B"
3040 DATA "P8BBBP8BB>DP8<G#P8>DC2CP8F#4"
3050 DATA "P8<B16B16BP4BP8>GP8F#16F16DP8P8DCCC#C#4C#"
3060 DATA "C4C4<BD16C#16DEBP8"
